home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / rbj / ptog < prev    next >
Text File  |  1990-05-09  |  183b  |  13 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ PTOG  Print Flag Toggle
  3. @
  4. @   RBJ 5/08/90 Initial Code
  5. \<< 
  6.   IF 9 DUP FS? 
  7.   THEN CF "No "
  8.   ELSE SF ""
  9.   END
  10.   "Print\010" + 1 DISP 1 FREEZE 
  11. \>>
  12.  
  13.